From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Wed, 11 Nov 2009 06:18:17 +0000 (+0000)
Subject: (define-ccl-program): Purecopy the docstring.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~9555
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=21c68428638e548281e0bbc98d907ffb3835c394;p=emacs.git

(define-ccl-program): Purecopy the docstring.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b146a1d4d9e..b2a0fb4f8f1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2009-11-11  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* international/ccl.el (define-ccl-program): Purecopy the docstring.
+
 	* emacs-lisp/easy-mmode.el (define-minor-mode): Purecopy :lighter.
 
 	* subr.el (add-hook): Purecopy strings.
diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index c5088c8c9e5..bb67e17d039 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -1523,7 +1523,7 @@ MAP-ID := integer
 		      (fset 'charset-id 'charset-id-internal)
 		      (ccl-compile (eval ccl-program)))
 		  (fmakunbound 'charset-id))))
-     (defconst ,name prog ,doc)
+     (defconst ,name prog (purecopy ,doc))
      (put ',name 'ccl-program-idx (register-ccl-program ',name prog))
      nil))